home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
IRIX Base Documentation 1998 November
/
IRIX 6.5.2 Base Documentation November 1998.img
/
usr
/
share
/
catman
/
p_man
/
cat3
/
f90
/
pxfisatty.z
/
pxfisatty
Wrap
Text File
|
1998-10-30
|
3KB
|
65 lines
PXFISATTY(3F) Last changed: 1-6-98
NNAAMMEE
PPXXFFIISSAATTTTYY - Determines if file descriptor corresponds to a valid file
descriptor
SSYYNNOOPPSSIISS
SSUUBBRROOUUTTIINNEE PPXXFFIISSAATTTTYY ((_i_f_i_l_d_e_s,, _i_s_a_t_t_y,, _i_e_r_r_o_r))
IINNTTEEGGEERR _i_f_i_l_d_e_s,, _i_e_r_r_o_r
LLOOGGIICCAALL _i_s_a_t_t_y
IIMMPPLLEEMMEENNTTAATTIIOONN
UNICOS, UNICOS/mk, and IRIX systems
SSTTAANNDDAARRDDSS
IEEE standard interface for FORTRAN 77
DDEESSCCRRIIPPTTIIOONN
On IRIX systems, this routine is in lliibbffoorrttrraann..ssoo which is linked by
default when compiling programs with the MIPSpro 7 Fortran 90 compiler
or when compiling programs with the --ccrraayylliibbss option to the MIPSpro
7.2 F77 compiler.
The PPXXFFIISSAATTTTYY routine uses iissaattttyy(3C) to determine if _i_f_i_l_d_e_s is a
valid file descriptor for a terminal.
When using the CF90 compiler or MIPSpro 7 Fortran 90 compiler on
UNICOS, UNICOS/mk, or IRIX, all arguments must be of default kind
unless documented otherwise. On UNICOS and UNICOS/mk, default kind is
KKIINNDD==88 for integer, real, complex, and logical arguments; on IRIX, the
default kind is KKIINNDD==44.
The following is a list of valid arguments for this routine:
_i_f_i_l_d_e_s An input integer variable containing the file descriptor to
be checked for an associated terminal.
_i_s_a_t_t_y An output logical variable which is .TRUE. when _i_f_i_l_d_e_s is
a file descriptor with an associated terminal. Otherwise
_i_s_a_t_t_y is .FALSE..
_i_e_r_r_o_r An output integer variable for the PPXXFFIISSAATTTTYY completion
status. _i_e_r_r_o_r contains zero if PPXXFFIISSAATTTTYY was successful.
EEXXAAMMPPLLEESS
program pxftest
integer len, ifildes, ierror, O_RDONLY
character*20 path
logical isatty
CALL PXFCTERMID(path,len,ierror)
CALL PXFCONST('O_RDONLY',O_RDONLY,error)
CALL PXFOPEN(path,len,O_RDONLY,400,ifildes,error)
CALL PXFISATTY(ifildes,isatty,ierror)
print *,isatty
end
SSEEEE AALLSSOO
PPXXFFCCOONNSSTT(3F), PPXXFFOOPPEENN(3F)
ttttyynnaammee(3C)
_A_p_p_l_i_c_a_t_i_o_n _P_r_o_g_r_a_m_m_e_r'_s _L_i_b_r_a_r_y _R_e_f_e_r_e_n_c_e _M_a_n_u_a_l, publication SR-
2165, for the printed version of this man page.